﻿Public Class fMain

    Private Sub BasicToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BasicToolStripMenuItem.Click
        My.Forms.fSetBasic.ShowDialog()
    End Sub

    Private Sub fMain_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Dispose()
    End Sub

    Private Sub fMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If My.Settings.firstRun = True Then
            My.Forms.fSetBasic.ShowDialog()
            If My.Forms.fSetBasic.DialogResult = Windows.Forms.DialogResult.OK Then
                My.Settings.firstRun = False
                My.Settings.Save()
            End If
        End If
    End Sub

    Private Sub EndToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles EndToolStripMenuItem.Click
        End
    End Sub

    Private Sub NewRecordToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NewRecordToolStripMenuItem.Click
        My.Forms.fNewRec.ShowDialog()
    End Sub
End Class
